set colo to bg+/b,w+/n
CLEAR
SET COLO TO BG+/B,w+/n
DO ADDRESSS
DO WHILE .T.
   SET COLO TO BG+/B,W+/N
   @ 7,1 CLEAR TO 23,78
   SET COLOR TO W+/N
   @ 9, 5 CLEA TO 19,49
   SET COLO TO N/BG,W+/N
   @ 8, 3 CLEA TO 18,47
   @ 8, 3 TO 18,47 DOUBLE
   @ 9 ,05 PROMPT "A .. PRINT DRUGS PRICE LIST            "
*   @ 11,05 PROMPT "B .. PRINT NEW DRUGS PRICE LIST        "
   @ 11,05 PROMPT "B .. PRINT DISPOSABLES PRICE LIST      "
   @ 13,05 PROMPT "C .. PRINT MEDICAL PROCEDURES LIST     "
   @ 17,05 PROMPT "X .. EXIT PROGRAMME                    "
   MENU TO PL1
   SET COLOR TO BG+/B,W+/N
   DO CASE
      CASE PL1=1
         DO DRUPRIN
      CASE PL1=2
         DO DISPRIN
      CASE PL1=3
         DO MEDPRIN
      CASE PL1=4 .OR. LASTKEY()=27
         CLEA
         return
   ENDCASE
ENDDO
